home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / hunt.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  1.0 KB  |  64 lines
  1. G4C
  2.  
  3. winbig -1 -1 350 89 "Search For File"
  4. winsmall -1 -1 350 89
  5. wintype 11110001
  6. winout nil:
  7. varpath "climaster/*"
  8.  
  9. xonload
  10. guiopen hunt.g
  11.  
  12. xonopen
  13. lvuse hunt.g 1
  14. cm_goto = ""
  15. lvclear
  16. update hunt.g 2 $cm_goto
  17. setgad hunt.g 2 on
  18.  
  19. xonclose
  20. cm_goto = ""
  21. update hunt.g 2 ""
  22. ifexists file env:res
  23.     delete env:res
  24. endif
  25. lvuse hunt.g 1
  26. lvclear
  27. lvuse climaster $cm_srce
  28. lvdir none
  29. guiquit hunt.g
  30.  
  31. xonrmb
  32. guiclose hunt.g
  33.  
  34. xlistview 0 13 0 76 "" cm_goto "" 0 txt
  35. gadid 1
  36. gadfont topaz.font 8 000
  37. lvuse climaster $cm_srce
  38. gosub climaster godir
  39. gosub climaster update
  40. gosub climaster addpath
  41. guiclose hunt.g
  42.  
  43. xtextin  0 0 350 13 "" cm_aptmp "" 30
  44. gadid 2
  45. lvuse climaster $cm_srce
  46. lvmulti first
  47. if $cm_select = ""
  48.    ezreq "No Dir(s) Selected" Okay ""
  49.    guiclose hunt.g
  50. endif
  51. guiwindow hunt.g wait
  52. while $cm_select > ""
  53.     setstack 6000
  54.     cli 'list >>env:res sub $cm_aptmp $cm_select all lformat "%s%s"'
  55.     setstack 4000
  56.     lvmulti off
  57.     lvmulti next
  58. endwhile
  59. lvuse hunt.g 1
  60. lvchange env:res
  61. guiwindow hunt.g resume
  62.  
  63. ; -------------------------------------
  64.